##-----------------------------------------------##
##  Set up Output File Link.      
##-----------------------------------------------##

$UID   = $ENV{'REMOTE_USER'};
$DT1   = `date +%T`; 
$UID1  = $UID.substr($DT1,6,2)."-AD";
$UID1  =~ tr/a-z/A-Z/;
$UID1  =~ s/ /0/gi;

open(REPORT1, ">REPORTS/$UID1.XLS");

printf (REPORT1 "%s \n"," ONE \t ");


printf (REPORT1 "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s \n",$i1,$data[16],$input{'FY'},$data[0],$data[1],$data[2],$data[3],$data[4],$data[5],$data[6],$data[7],$data[8],$data[9],$data[10],$data[11],$data[12],$data[13]);

close(REPORT1);

$HREF1 = "<A HREF=REPORTS/$UID1$input{'FY'}.XLS>";
$HEND1 = "</A>";

print <<ENDOFFILE;
<TABLE border=1 width=730>
<TR>
<TD align=left> $FB FY $FR <b> $input{'FY'} &nbsp; &nbsp; $F1 $FYX
     $F1 Nbr of Records: $i
     &nbsp; $FX $HREF1 Download $input{'FY'} $HEND1
</TABLE>
ENDOFFILE

